home *** CD-ROM | disk | FTP | other *** search
/ Bath / Bath CDROM.iso / pc / BATH.DXR / Topbar_17_animatedweblink.ls < prev    next >
Encoding:
Text File  |  2001-07-26  |  464 b   |  24 lines
  1. on mouseEnter me
  2.   cursor(280)
  3.   if not soundBusy(1) and not soundBusy(2) then
  4.     n = random(3)
  5.     if n = 1 then
  6.       sound(1).play(member("VisitOurWebsite", "sounds"))
  7.     end if
  8.     if n = 2 then
  9.       sound(1).play(member("VisitOurWebsite2", "sounds"))
  10.     end if
  11.     if n = 3 then
  12.       sound(1).play(member("VisitOurWebsite3", "sounds"))
  13.     end if
  14.   end if
  15. end
  16.  
  17. on mouseUp
  18.   gotoNetPage("http://www.britguides.com")
  19. end
  20.  
  21. on mouseLeave me
  22.   cursor(-1)
  23. end
  24.